﻿Imports System.Collections.Specialized

Namespace GoogleAnalyticsMailHandler
    Public Class MessagePart
        Public Property Headers() As NameValueCollection
            Get
                Return m_Headers
            End Get
            Protected Set(ByVal value As NameValueCollection)
                m_Headers = Value
            End Set
        End Property
        Private m_Headers As NameValueCollection
        Public Property ContentType() As String
            Get
                Return m_ContentType
            End Get
            Protected Set(ByVal value As String)
                m_ContentType = Value
            End Set
        End Property
        Private m_ContentType As String
        Public Property MessageText() As String
            Get
                Return m_MessageText
            End Get
            Protected Set(ByVal value As String)
                m_MessageText = Value
            End Set
        End Property
        Private m_MessageText As String
        Public Sub New(ByVal headers__1 As NameValueCollection, ByVal messageText__2 As String)
            Headers = headers__1
            ContentType = Headers("Content-Type")
            MessageText = messageText__2
        End Sub
    End Class
End Namespace
